(copy-tree): Use `nconc' and `nreverse' instead of `nreconc'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a87506ec72509efd5897d938ecbd2f47ff6428cc..25ad58cd13658af1fb3158b9f154143542a4535e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-14  Miles Bader  <miles@gnu.org>
+
+       * subr.el (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'.
+
 2002-06-13  Richard M. Stallman  <rms@gnu.org>
 
        * play/zone.el (zone-timer): New variable holds the idle timer.

diff --git a/lisp/subr.el b/lisp/subr.el
index b565d8ef7c9914fc3fa1f8e0270d3c129a2154bb..648ff0de3e3b4013c1df0e2b8ea272c1beed835b 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -204,7 +204,7 @@ argument VECP, this copies vectors as well as conses."
                (setq newcar (copy-tree (car tree) vecp)))
            (push newcar result))
          (setq tree (cdr tree)))
-       (nreconc result tree))
+       (nconc (nreverse result) tree))
     (if (and vecp (vectorp tree))
        (let ((i (length (setq tree (copy-sequence tree)))))
          (while (>= (setq i (1- i)) 0)